! ******************************************************************************************************************************** !
! ecogem_lib.f90
! 
! LIBRARY MODULE
! ******************************************************************************************************************************** !


MODULE ecogem_lib


  use genie_control
  use gem_util
  IMPLICIT NONE
  SAVE


  ! ****************************************************************************************************************************** !
  ! *** NAMELIST DEFINITIONS ***************************************************************************************************** !
  ! ****************************************************************************************************************************** !

  ! ### EDIT ADD AND/OR EXTEND NAME-LIST PARAMETER AND CONTROL OPTIONS ########################################################### !
  ! ############################################################################################################################## !


  ! ****************************************************************************************************************************** !
  ! *** MODEL CONFIGURATION CONSTANTS - ARRAY DIMENSIONS ************************************************************************* !
  ! ****************************************************************************************************************************** !

  ! *** array dimensions ***
  ! grid dimensions
  INTEGER,PARAMETER::n_i = ilon1_ocn                                    ! 
  INTEGER,PARAMETER::n_j = ilat1_ocn                                    ! 
  INTEGER,PARAMETER::n_k = inl1_ocn                                     !

  ! ****************************************************************************************************************************** !
  ! *** MODEL CONFIGURATION CONSTANTS - PARAMETERS ******************************************************************************* !
  ! ****************************************************************************************************************************** !

  ! number of plankton
  integer,parameter::n_p = 1

  ! ****************************************************************************************************************************** !
  ! *** GLOBAL VARIABLES AND RUN-TIME SET PARAMETERS ***************************************************************************** !
  ! ****************************************************************************************************************************** !

  ! plankton array
  REAL,ALLOCATABLE,DIMENSION(:,:,:)::plankton                           ! plankton array (n_plankton,i,j)


END MODULE ecogem_lib

